home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib8 / v_10_06 / 1006089a < prev    next >
Encoding:
Text File  |  1995-11-01  |  573 b   |  38 lines
  1. /* LISTING 3 */
  2.  
  3. #include <stdlib.h>
  4.  
  5. double block[200];
  6. double * getblock1(int);
  7. double * getblock2(int);
  8.  
  9. f3() 
  10. {
  11.     int i;
  12.     double *p, *q, *r;
  13.  
  14.     p = getblock1(200);
  15.     q = getblock1(200);
  16.     r = getblock1(200);
  17.  
  18.     for( i=0; i<200; ++i )
  19.         *p++ = *q++ / *r++;
  20.  
  21.     p = getblock2(1);
  22.     q = getblock2(0);
  23.     r = getblock2(0);
  24.  
  25.     for( i=1; i<200; ++i )
  26.         *p++ = *q++ / *r++;
  27. }
  28.  
  29. double * getblock1(int n)
  30. {
  31.     return (double *) malloc(n * sizeof(double));
  32. }
  33.  
  34. double * getblock2(int n)
  35. {
  36.     return block+n;
  37. }
  38.